home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MAIL.SWG / 0010_FIDO Nodelist.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  2KB  |  57 lines
  1. {
  2. LUCAS NEALAN
  3.  
  4. > Does anyone have any code/specs (in Pascal preferred) of how to
  5. > manipulate the Version 6 FidoNet NodeList??
  6. }
  7.  
  8. Type
  9.   nodeflags =  { NODELIST.DAT status flags }
  10.     (hub,      { node is a net hub }
  11.      host,     { node is a net host }
  12.      region,   { node is region coord }
  13.      zone,     { node is a zone coord }
  14.      cm,       { runs continuous mail }
  15.      ores1,    { reserved For Opus }
  16.      ores2,    { reserved For Opus }
  17.      ores3,    { reserved For Opus }
  18.      ores4,    { reserved For Opus }
  19.      ores5,    { reserved For Opus }
  20.      nores1,   { reserved For non-Opus }
  21.      nores2,   { reserved For non-Opus }
  22.      nores3,   { reserved For non-Opus }
  23.      nores4,   { reserved For non-Opus }
  24.      nores5,   { reserved For non-Opus }
  25.      nores6    { reserved For non-Opus }
  26.     );
  27.  
  28.   modemTypes = { NODELIST.DAT modem Type flags }
  29.     (hst,      { node Uses a USRobotics HST modem }
  30.      pep,      { node Uses a Telebit PEP modem }
  31.      v32,      { node Uses a V.32 modem }
  32.      v32b,     { node Uses a V.32bis modem }
  33.      h96       { node Uses a Hayes Express96 modem }
  34.     );
  35.  
  36.   nodedatarec = Record { NODELIST.DAT : Version 6 nodelist data }
  37.     net      : Integer;               { net number }
  38.     node     : Integer;               { node number }
  39.     cost     : Integer;               { cost per minute to call }
  40.     name     : Array [0..33] of Byte; { node name }
  41.     phone    : Array [0..39] of Byte; { phone number }
  42.     city     : Array [0..29] of Byte; { city and state }
  43.     passWord : Array [0..7] of Byte;  { passWord }
  44.     Realcost : Integer;               { phone company's Charge }
  45.     hubnode  : Integer;               { node # of this node's hub (0=none) }
  46.     rate     : Byte;                  { actual bps rate divided by 300 }
  47.     modem    : set of modemTypes;     { modem Type codes }
  48.     flags    : set of nodeflags;      { set of flags }
  49.     res      : Array [1..2] of Byte;  { RESERVED }
  50.   end;
  51.  
  52.   nodeindexrec = Record { NODELIST.IDX : Version 6 nodelist index }
  53.     node : Integer;       { node number }
  54.     net  : Integer;        { net number }
  55.   end;
  56.  
  57.